home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / terms / kermit / c / ctusr3.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-01-19  |  24.9 KB  |  951 lines
  1. /*  C K U S R 3 --  "User Interface" for C-Kermit, part 3  */
  2.  
  3. /*  SET and REMOTE commands; screen, debug, interrupt, and logging functions */
  4.  
  5. /* modified for CTOS C2.0 by Joel Dunn, UNC-CH, October 1986 */
  6. /* modified by Doug Drury ITT-Federal Services Corp 1991     */
  7. /*             added XYTAKE to implement Take Error Action   */
  8. /*             added XXIFSU, XXIFFA, XXIFCO, XXIFEQ, XXIFDE  */
  9. /*             and XXIFEX to implement IF options            */
  10. /*             added XYCOUN to implement COUNT               */
  11. /*             added doif routine                            */
  12. /*             added askvar routine - prompt for var value   */
  13.  
  14. /* Includes */
  15.  
  16. #include "ctermi.h"
  17. #include "ctcmd.h"
  18. #include "ctuser.h"
  19. #include <string.h>
  20.  
  21. /* Variables */
  22.  
  23. extern int size, spsiz, npad, timint, speed, local, server, image, flow,
  24.   displa, binary, fncnv, delaytime, parity, deblog, escape, xargc, maxtry,
  25.   turn, duplex, cxseen, czseen, nfils, ckxech, pktlog, seslog, tralog, stdouf,
  26.   turnch, chklen, bctr, bctu, fsize, dfloc, mdmtyp, expand_var,
  27.   rptflg, ebqflg, warn, quiet, cnflg, timef, mypadn, termtype, terror, techo;
  28.  
  29. extern long filcnt, tlci, tlco, ffc, tfc;
  30.  
  31. extern char *versio, *protv, *ckxv, *ckzv, *fnsv, *connv, *dftty, *cmdv;
  32. extern char *cmarg, *cmarg2, **xargv, **cmlist, g_vars[MAXVARS][MAXVARL];
  33. extern char mystch, sstate, mypadc, padch, eol, reol, ctlq, filnam[], ttname[];
  34. char *strcpy();
  35.  
  36. /* Declarations from cmd package */
  37.  
  38. extern char cmdbuf[];            /* Command buffer */
  39.  
  40. /* From main ckuser module... */
  41. extern char savbuf[CMDBL];              /* Buffer for command part of IF */
  42. extern char line[100], *lp;        /* Character buffer for anything */
  43. extern char debfil[50],            /* Debugging log file name */
  44.  pktfil[50],                /* Packet log file name */
  45.  sesfil[50],                /* Session log file name */
  46.  trafil[50];                /* Transaction log file name */
  47.  
  48. extern int tlevel;            /* Take Command file level */
  49. extern FILE *tfile[];            /* Array of take command fd's */
  50. extern int count[];                     /* Int array to hold count value */
  51. extern int success;
  52.  
  53. /* Keyword tables for SET commands */
  54.  
  55.  
  56. /* Terminal types */
  57.  
  58. struct keytab termtab[] = {
  59.     "none", 0, 0,
  60.     "vt100", 1, 0,
  61.     "VT100", 1, 0
  62. };
  63. int nterm = (sizeof(termtab) / sizeof(struct keytab));
  64.  
  65. /* Block checks */
  66.  
  67. struct keytab blktab[] = {
  68.     "1", 1, 0,
  69.     "2", 2, 0,
  70.     "3", 3, 0
  71. };
  72.  
  73. /* Duplex keyword table */
  74.  
  75. struct keytab dpxtab[] = {
  76.     "full",      0, 0,
  77.     "half",      1, 0
  78. };
  79.  
  80. struct keytab filtab[] = {
  81.     "display", XYFILD, 0,
  82.     "names",   XYFILN, 0,
  83.     "type",    XYFILT, 0,
  84.     "warning", XYFILW, 0
  85. };
  86. int nfilp = (sizeof(filtab) / sizeof(struct keytab));
  87.  
  88. /* Flow Control */
  89.  
  90. struct keytab flotab[] = {
  91.     "none",     0, 0,
  92.     "xon/xoff", 1, 0
  93. };
  94. int nflo = (sizeof(flotab) / sizeof(struct keytab));
  95.  
  96. /*  Handshake characters  */
  97.  
  98. struct keytab hshtab[] = {
  99.     "bell", 007, 0,
  100.     "cr",   015, 0,
  101.     "esc",  033, 0,
  102.     "lf",   012, 0,
  103.     "none", 999, 0,  /* (can't use negative numbers) */
  104.     "xoff", 023, 0,
  105.     "xon",  021, 0
  106. };
  107. int nhsh = (sizeof(hshtab) / sizeof(struct keytab));
  108.  
  109. struct keytab fntab[] = {           /* File naming */
  110.     "converted", 1, 0,
  111.     "literal",   0, 0
  112. };
  113.  
  114. struct keytab fttab[] = {        /* File types */
  115.     "binary",    1, 0,
  116.     "text",      0, 0
  117. };
  118.  
  119. extern struct keytab mdmtab[] ;        /* Modem types (in module ckdial.c) */
  120. extern int nmdm;
  121.  
  122.  
  123. /* Parity keyword table */
  124.  
  125. struct keytab partab[] = {
  126.     "even",    'e', 0,
  127.     "mark",    'm', 0,
  128.     "none",      0, 0,
  129.     "odd",     'o', 0,
  130.     "space",   's', 0
  131. };
  132. int npar = (sizeof(partab) / sizeof(struct keytab));
  133.  
  134. /* Take parameters */
  135.  
  136. struct keytab taktab[] = {
  137.     "echo",   XXTKEC, 0,
  138.     "error",  XXTKER, 0
  139. };
  140. int ntak = (sizeof(taktab) / sizeof(struct keytab));
  141.  
  142. /* Take echo parameters */
  143.  
  144. struct keytab ecotab[] = {
  145.     "on", XECON, 0,
  146.     "off", XECOFF, 0
  147. };
  148. int necho = (sizeof(ecotab) / sizeof(struct keytab));
  149.  
  150. /* Take error parameters */
  151.  
  152. struct keytab errtab[] = {
  153.     "on", XERON, 0,
  154.     "off", XEROFF, 0 
  155. };
  156. int nerr = (sizeof(errtab) / sizeof(struct keytab));
  157.  
  158. /* On/Off table */
  159.  
  160. struct keytab onoff[] = {
  161.     "off",       0, 0,
  162.     "on",        1, 0
  163. }; 
  164.  
  165. int dsplon = 1;     /* cmifi error message display inticator */                
  166.  
  167.  
  168. /*  D O P R M  --  Set a parameter.  */
  169. /*
  170.  Returns:
  171.   -2: illegal input
  172.   -1: reparse needed
  173.    0: success
  174. */
  175. doprm(xx) int xx; {
  176.     int x, y, z, zz;
  177.     char *s;
  178.  
  179. switch (xx) {
  180.  
  181. case XYLINE:
  182.     if ((x = cmtxt("Device name",dftty,&s)) < 0) return(x);
  183.     ttclos();                /* close old line, if any was open */
  184.     strcpy(ttname,s);
  185.     if (strcmp(ttname,dftty) == 0) local = dfloc; else local = 1;
  186.     if (ttopen(ttname,local,mdmtyp) < 0 ) { /* Can we open the new line? */
  187.     perror("Sorry, can't open line");
  188.     return(-2);            /* If not, give bad return */
  189.     }
  190.     return(0);
  191.  
  192. case XYCHKT:
  193.     if ((y = cmkey(blktab,3,"","1")) < 0) return(y);
  194.     if ((x = cmcfm()) < 0) return(x);
  195.     bctr = y;
  196.     return(0);
  197.  
  198. case XYCOUN:
  199.     if (tlevel < 0) {
  200.     printf("count only useful from inside Take file\n");
  201.         return(-2);
  202.     }
  203.     y = cmnum("Number to set count to","0",10,&x);
  204.     count[tlevel] = x;
  205.     return(0);
  206.  
  207. case XYDEBU:
  208.     return(seton(&deblog));
  209.  
  210. case XYDELA:
  211.     y = cmnum("Number of seconds before starting to send","5",10,&x);
  212.     debug(F101,"XYDELA: y","",y);
  213.     return(setnum(&delaytime,x,y));
  214.  
  215. case XYDUPL:
  216.     if ((y = cmkey(dpxtab,2,"","full")) < 0) return(y);
  217.     if ((x = cmcfm()) < 0) return(x);
  218.     duplex = y;
  219.     return(0);
  220.  
  221. case XYEOL:
  222.     y = cmnum("Decimal ASCII code for packet terminator","0",10,&x);
  223.     y = setcc(&z,x,y);
  224.     reol = eol = z;
  225.     return(y);
  226.  
  227. case XYESC:
  228.     y = cmnum("Decimal ASCII code for escape character","",10,&x);
  229.     return(setcc(&escape,x,y));
  230.  
  231. case XYFILE:
  232.     if ((y = cmkey(filtab,nfilp,"File parameter","")) < 0) return(y);
  233.     switch (y) {
  234.     int z;
  235.     case XYFILD:            /* Display */
  236.         y = seton(&z);
  237.         if (y < 0) return(y);
  238.         quiet = !z;
  239.         return(0);
  240.  
  241.     case XYFILN:            /* Names */
  242.         if ((x = cmkey(fntab,2,"how to handle filenames","converted")) < 0)
  243.             return(x);
  244.         if ((z = cmcfm()) < 0) return(z);
  245.         fncnv = x;
  246.         return(0);
  247.  
  248.     case XYFILT:            /* Type */
  249.         if ((x = cmkey(fttab,2,"type of file","text")) < 0)
  250.             return(x);
  251.         if ((z = cmcfm()) < 0) return(z);
  252.         binary = x;
  253.         return(0);
  254.  
  255.     case XYFILW:            /* Warning/Write-Protect */
  256.         return(seton(&warn));
  257.     }
  258.  
  259. case XYFLOW:                /* Flow control */
  260.     if ((y = cmkey(flotab,nflo,"","xon/xoff")) < 0) return(y);
  261.     if ((x = cmcfm()) < 0) return(x);
  262.     flow = y;
  263.     return(0);
  264.  
  265. case XYHAND:                /* Handshake */
  266.     if ((y = cmkey(hshtab,nhsh,"","none")) < 0) return(y);
  267.     if ((x = cmcfm()) < 0) return(x);
  268.     turn = (y > 0127) ? 0 : 1 ;
  269.     turnch = y;
  270.     return(0);
  271.  
  272. case XYLEN:
  273.     y = cmnum("Maximum number of characters in a packet","80",10,&x);
  274.     return(setnum(&spsiz,x,y));
  275.  
  276. case XYMARK:
  277.     y = cmnum("Decimal ASCII code for packet-start character","1",10,&x);
  278.     y = setcc(&z,x,y);
  279.     mystch = z;
  280.     return(y);
  281.  
  282. case XYMODM:
  283.     if ((x=cmkey(mdmtab,nmdm,"type of modem, direct means none","direct")) < 0)
  284.     return(x);
  285.     if ((z = cmcfm()) < 0) return(z);
  286.     mdmtyp = x;
  287.     return(0);
  288.     
  289. case XYNPAD:
  290.     y = cmnum("How many padding characters for inbound packets","0",10,&x);
  291.     return(setnum(&mypadn,x,y));
  292.  
  293. case XYPADC:
  294.     y = cmnum("Decimal ASCII code for inbound pad character","0",10,&x);
  295.     y = setcc(&z,x,y);
  296.     mypadc = z;
  297.     return(y);
  298.  
  299. case XYPARI:
  300.     if ((y = cmkey(partab,npar,"","none")) < 0) return(y);
  301.     if ((x = cmcfm()) < 0) return(x);
  302.     if((parity = y) == 0) ebqflg = 0; 
  303.     else ebqflg = 1;        /* Flag we want 8th-bit prefixing */
  304.     return(0);
  305.  
  306. case XYPROM:
  307.     if ((x = cmtxt("Program's command prompt","CTOS-Kermit>",&s)) < 0) 
  308.             return(x);
  309.     cmsetp(s);
  310.     return(0);
  311.  
  312. case XYRETR:
  313.     y = cmnum("Interpacket retry count","5",10,&x);
  314.     y = setnum(&maxtry,x,y);
  315.     return(y);
  316.  
  317. case XYSPEE:
  318.     if (!local) {
  319.     printf("\nSpeed setting can only be done on an external line\n");
  320.     printf("You must 'set line' before issuing this command\n");
  321.     return(0);
  322.     }    
  323.     lp = line;
  324.     sprintf(lp,"Baud rate for %s",ttname);
  325.     if ((y = cmnum(line,"",10,&x)) < 0) return(y);
  326.     if (y = (cmcfm()) < 0) return(y);
  327.     y = chkspd(x);
  328.     if (y < 0) 
  329.         printf("?Unsupported line speed - %d\n",x);
  330.     else {
  331.         speed = y;
  332.     printf("%s: %d baud\n",ttname,speed);
  333.     }
  334.     return(0);
  335.  
  336. case XYTERM:                /* Terminal type */
  337.     if ((y = cmkey(termtab,nterm,"","terminal type")) < 0) return(y);
  338.     if ((x = cmcfm()) < 0) return(x);
  339.     termtype = y;
  340.     return(0);
  341.  
  342. case XYTIMO:
  343.     y = cmnum("Interpacket timeout interval","5",10,&x);
  344.     y = setnum(&timint,x,y);
  345.     if (y > -1) timef = 1;
  346.     return(y);
  347.  
  348. case XYTAKE:                              
  349.     if ((y = cmkey(taktab,ntak,"Take Parameter","")) < 0) return(y);
  350.        switch (y) {
  351.            case XXTKEC:       /* TAKE ECHO */
  352.                 if ((z = cmkey(ecotab,necho,"take echo on/off","on")) < 0)
  353.                    return(z);
  354.                 if ((zz = cmcfm()) < 0) return(zz);
  355.                 switch (z) {
  356.                        case XECON:        /* Take Echo On */
  357.                             techo = 1;    /* Echo Take Progress msgs */
  358.                             y = techo;
  359.                             break;
  360.                        case XECOFF:       /* Take Echo Off  */
  361.                             techo = 0;    /* Don't Echo Progress msgs */
  362.                             y = techo;
  363.                    break; 
  364.                        default:
  365.                             y = -2;
  366.                             break;
  367.                 }                                                  
  368.                 
  369.            break;
  370.  
  371.        case XXTKER:       /* TAKE ERROR */ 
  372.                 if ((z = cmkey(errtab,nerr,"take error on/off","on")) < 0)
  373.                    return(z);
  374.                 if ((zz = cmcfm()) < 0) return(zz);
  375.                 switch (z) {
  376.                        case XERON:        /* Take Error On */
  377.                             terror = 0;   /* abort TAKE on error */
  378.                 y = terror;
  379.                 break;
  380.                        case XEROFF:       /* Take Error Off  */
  381.                     terror = 1;   /* continue TAKE after error */
  382.                     y = terror;
  383.                         break;
  384.                        default:
  385.                             y = -2;
  386.                             break;
  387.                }                          
  388.                
  389.            break; 
  390.  
  391.        default:
  392.         y = -2;       /* should never happen */
  393.         break;
  394.     }
  395.     return(y);
  396.  
  397. default:
  398.     if (x = (cmcfm()) < 0) return(x);
  399.     printf("Not working yet - %s\n",cmdbuf);
  400.     return(0);
  401.     }
  402. }
  403.  
  404. /* D O I F  --  Process the option on an if statement        */     
  405.  
  406. doif(x) int x; {
  407.   int y;
  408.   char *s;
  409.                              
  410.     switch(x) {
  411. case XXIFSU:
  412.     y = cmtxt("Command to execute","",&s); 
  413.     if (success) {                               
  414.             pushcmd(s);  /* save command part to be processed next */
  415.     }
  416.     return(-9);
  417.  
  418. case XXIFFA:
  419.     y = cmtxt("Command to execute","",&s);
  420.     if (!success) {
  421.            pushcmd(s); /* save command part to be processed next */
  422.     }
  423.     return(-9);
  424.  
  425. case XXIFCO:
  426.     y = cmtxt("Command to execute","",&s);
  427.     if (count[tlevel] > 0) {
  428.      count[tlevel]--;   /* decrement the count */
  429.      if (count[tlevel]) {  /* this is the way both UNIX and MS-DOS work */
  430.         pushcmd(s);     /* save command part */
  431.      }
  432.     }
  433.     return(-9);             /* I'm not sure -9 is valid, but... */
  434.  
  435. case XXIFEQ:
  436.   {
  437.        char *str, str1[ATMBL];
  438.        int x;
  439.  
  440.        if ((x = cmfld("First Argument","",&str)) < 0) return(x); 
  441.        strcpy(str1, str);
  442.        if ((x = cmfld("Second Argument","",&str)) < 0) return(x);
  443.        if (strcmp(str, str1) == 0) {
  444.            y = cmtxt("KERMIT command to execute","",&s);
  445.            pushcmd(s);
  446.        }
  447.        else y = cmtxt("IF condition is false KERMIT command ignored","",&s);  
  448.     }
  449.  
  450.     return(-9);
  451.  
  452. case XXIFDE:
  453.    {
  454.       char *str;
  455.       int x;
  456.  
  457.       expand_var = 0;     /* so we just get the var name without expanding */
  458.       x = cmfld("Variable Name","",&str);
  459.       expand_var = 1;     /* now reset it so everything else gets expanded */
  460.       if ((x = ckvar(str)) >= 0) {
  461.         if (g_vars[x][0] != '\0') {
  462.          y = cmtxt("Command to execute","",&s);
  463.          pushcmd(s);    /* SAVE THE REST OF THE COMMAND LINE */
  464.         }
  465.            else y = cmtxt(
  466.             "Variable not defined Kermit command ignored","",&s);
  467.         /* burn the rest of the command line */
  468.       }                                                 
  469.         /* burn the rest of the command line */
  470.       else y = cmtxt("Variable not specified Kermit command ignored","",&s);
  471.     }
  472.  
  473.     return(-9);
  474.  
  475. case XXIFEX:
  476.     dsplon = 0;    /* suppress cmifi error messages */
  477.     x = cmifi("Name of file to check","",&s,&y);
  478.     y = cmtxt("Command to execute","",&s);
  479.     if (x >= 0)
  480.     pushcmd(s);
  481.     else *s = '\0';        /* NULL out return string */
  482.     dsplon = 1;   /* re-activate cmifi error messages */
  483.     return(-9);
  484.  
  485. default:
  486.     return(-2);             /* invalid IF condition */
  487.      }    
  488. }
  489.  
  490. /*  C H K S P D  --  Check if argument is a valid baud rate  */
  491.  
  492. chkspd(x) int x; {
  493.     switch (x) {
  494.     case 0:
  495.     case 300:
  496.     case 600:
  497.     case 1200:
  498.     case 2400:
  499.     case 4800:
  500.     case 9600:
  501.         return(x);
  502.     default: 
  503.         return(-1);
  504.       }
  505. }
  506.  
  507. /*  S E T O N  --  Parse on/off (default on), set parameter to result  */
  508.  
  509. seton(prm) int *prm; {
  510.     int x, y;
  511.     if ((y = cmkey(onoff,2,"","on")) < 0) return(y);
  512.     if ((x = cmcfm()) < 0) return(x);
  513.     *prm = y;
  514.     return(0);
  515. }
  516.  
  517. /*  S E T N U M  --  Set parameter to result of cmnum() parse.  */
  518. /*
  519.  Call with x - number from cnum parse, y - return code from cmnum
  520. */
  521. setnum(prm,x,y)
  522.  
  523. int x, y, *prm;
  524.  
  525. {
  526.     if (y < 0) return(y);
  527.     if (x > 94)
  528.         {
  529.         printf("\n?Sorry, 94 is the maximum, value entered is %d\n",x);
  530.         return(-2);
  531.             }
  532.     if ((y = cmcfm()) < 0) return(y);
  533.     *prm = x;
  534.     return(0);
  535. }
  536.  
  537. /*  S E T C C  --  Set parameter to an ASCII control character value.  */
  538.  
  539. setcc(prm,x,y) int x, y, *prm; {
  540.     if (y < 0) return(y);
  541.     if ((x > 037) && (x != 0177)) {
  542.     printf("\n?Not in ASCII control range - %d\n",x);
  543.     return(-2);
  544.     }
  545.     if ((y = cmcfm()) < 0) return(y);
  546.     *prm = x;
  547.     return(0);
  548. }
  549.  
  550. /* A S K V A R -- Prompt the operator to input a string,
  551.           put the string into the variable */
  552.  
  553. askvar(index, cmd_prompt, echo_on) int index, echo_on; char *cmd_prompt;
  554. {
  555.     int i = 0;
  556.     int erc;
  557.     char c_tmp, *str_tmp;
  558.  
  559.     str_tmp = cmd_prompt;
  560.                             /* SKIP TO:    */
  561.     while (*str_tmp && !isspace(*str_tmp)) str_tmp++;    /* firstspace    */
  562.     while (*str_tmp &&  isspace(*str_tmp)) str_tmp++;    /* second atom    */
  563.     while (*str_tmp && !isspace(*str_tmp)) str_tmp++;    /* second space    */
  564.     while (*str_tmp &&  isspace(*str_tmp)) str_tmp++;    /* third atom    */
  565.  
  566.     if (!isprint(*str_tmp))            /* check for prompt    */
  567.     return(-1);
  568.  
  569.     while (isprint(*str_tmp))            /* if printable    */
  570.     putchar(*str_tmp++);            /* disp prompt    */
  571.  
  572.     fflush(stdout);                /* flush stdout    */
  573.  
  574.     erc = readkbddirect(0, &c_tmp);        /* get 1st char    */
  575.     
  576.     while (c_tmp != '\n' && !erc) {                    
  577.     if (c_tmp == '\b') {
  578.         if (i > 0) {            /* handle    */
  579.         i--;                /* back space    */
  580.         if (echo_on)            /* if ask    */
  581.             putchar(c_tmp);        /* echo back sp    */
  582.         }
  583.         else
  584.         putchar(BEL);
  585.     }
  586.     else if (isprint(c_tmp) && i < MAXVARL-1) { /* if printable*/
  587.         g_vars[index][i++] = c_tmp;        /* store char    */
  588.         if (echo_on)            /* display char    */
  589.         putchar(c_tmp);            /* as typed, if    */
  590.                         /* echo on    */
  591.     }
  592.     else
  593.         putchar(BEL);
  594.  
  595.     fflush(stdout);
  596.     erc = readkbddirect(0, &c_tmp);        /* get next char*/
  597.     }
  598.     g_vars[index][i] = '\0';
  599.     putchar('\n');
  600.     return(0);
  601. }
  602.  
  603. /*  D O R M T  --  Do a remote command  */
  604.  
  605. dormt(xx) int xx; {
  606.     int x;
  607.     char *s, sbuf[50], *s2, s2temp;
  608.  
  609.     if (xx < 0) return(xx);
  610.     switch (xx) {
  611.  
  612. /* CTOS C2.0 doesn't like direct decrement of s2 in minieditor, used s2temp */
  613. case XZCWD:                /* CWD */
  614.     if ((x = cmtxt("Remote directory name","",&s)) < 0) return(x);
  615.     debug(F111,"XZCWD: ",s,x);
  616.     *sbuf = NUL;
  617.     s2 = sbuf;
  618.     if (*s != NUL)
  619.         { /* If directory name given, get password on separate line. */
  620.         if (tlevel > -1)
  621.             {        /* From take file... */
  622.                 *line = NUL;
  623.             if (fgets(sbuf,50,tfile[tlevel]) == NULL)
  624.               ermsg("take file ends prematurely in 'remote cwd'");
  625.             debug(F110," pswd from take file",s2,0);
  626.                     }
  627.         else
  628.             {            /* From terminal... */
  629.             printf(" Password: ");         /* get a password */
  630.             while ((x = getchar()) != '\n')
  631.                 {   /* without echo. */
  632.                     if ((x &= 0177) == '?')
  633.                     {
  634.                 printf("? Password of remote directory\n Password: ");
  635.                     s2 = sbuf;
  636.                     *sbuf = NUL;
  637.                         }
  638.                     else if (x == ESC)
  639.                     /* Mini command line editor... */
  640.                             putchar(BEL);
  641.                 else if (x == BS || x == 0177)
  642.                         {
  643.                         s2temp = *s2;
  644.                         s2temp--;
  645.                         *s2 = s2temp;
  646.                         }
  647.                 else if (x == 025)
  648.                         {
  649.                         s2 = sbuf;
  650.                             *sbuf = NUL;
  651.                         }
  652.                     else *s2++ = x;
  653.                 }
  654.             *s2 = NUL;
  655.             putchar('\n');
  656.         }
  657.         s2 = sbuf;
  658.     }
  659.     else s2 = "";
  660.     debug(F110," password",s2,0);
  661.     sstate = setgen('C',s,s2,"");
  662.     return(0);
  663.  
  664. case XZDEL:                /* Delete */
  665.     if ((x = cmtxt("Name of remote file(s) to delete","",&s)) < 0) return(x);
  666.     return(sstate = rfilop(s,'E'));
  667.  
  668. case XZDIR:                /* Directory */
  669.     if ((x = cmtxt("Remote directory or file specification","",&s)) < 0)
  670.         return(x);
  671.     return(sstate = setgen('D',s,"",""));
  672.  
  673. case XZHLP:                /* Help */
  674.     if (x = (cmcfm()) < 0) return(x);
  675.     sstate = setgen('H',"","","");
  676.     return(0);
  677.  
  678. case XZHOS:                /* Host */
  679.     if ((x = cmtxt("Command for remote system","",&cmarg)) < 0) return(x);
  680.     return(sstate = 'c');
  681.  
  682. case XZPRI:                /* Print */
  683.     if ((x = cmtxt("Remote file(s) to print on remote printer","",&s)) < 0)
  684.         return(x);
  685.     return(sstate = rfilop(s,'S'));
  686.  
  687. case XZSPA:                /* Space */
  688.     if ((x = cmtxt("Confirm, or remote directory name","",&s)) < 0) return(x);
  689.     return(sstate = setgen('U',s,"",""));
  690.     
  691. case XZTYP:                /* Type */
  692.     if ((x = cmtxt("Remote file specification","",&s)) < 0) return(x);
  693.     return(sstate = rfilop(s,'T'));
  694.  
  695. case XZWHO:
  696.     if ((x = cmtxt("Remote user name, or carriage return","",&s)) < 0)
  697.         return(x);
  698.     return(sstate = setgen('W',s,"",""));
  699.  
  700. default:
  701.     if (x = (cmcfm()) < 0) return(x);
  702.     printf("not working yet - %s\n",cmdbuf);
  703.     return(-2);
  704.     }
  705. }
  706.  
  707.  
  708.  
  709. /*  R F I L O P  --  Remote File Operation  */
  710.  
  711. rfilop(s,t) char *s, t; {
  712.     if (*s == NUL) {
  713.     printf("?File specification required\n");
  714.     return(-2);
  715.     }
  716.     debug(F111,"rfilop",s,t);
  717.     return(setgen(t,s,"",""));
  718. }
  719.  
  720. /*  S C R E E N  --  Screen display function  */
  721. /*  
  722.    c - a character or small integer
  723.    n - an long integer
  724.    s - a string.
  725.  Fill in this routine with the appropriate display update for the system.
  726.  This version is for a dumb tty, and uses the arguments like this:
  727.    c:     0 - print s on a new line, followed by a space.
  728.           1 - print s at current screen position.
  729.           2 - print s at current position, followed by newline.
  730.       3 - print "s: n" at current position, followed by newline.
  731.       other - print c as a character.
  732.    n: if c is 'other', used to decide whether or how to print c.
  733.    s: as above.
  734.  Horizontal screen position is kept current if screen is only updated by 
  735.  calling this function.  Wraparound is done at column 78.
  736. */
  737. screen(c,n,s) char c; long n; char *s; {
  738.     static int p = 0;            /* Screen position */
  739.     int len;  char buf[80];
  740.     len = strlen(s);
  741.     if (!displa || quiet) return;    /* No update if display flag off */
  742.     switch (c) {
  743.     case 0:                /* Print s on newline */
  744.         conoll("");            /* Start new line, */
  745.         conol(s);            /* Print string. */
  746.         conoc(SP);            /* Leave a space. */
  747.         p = len + 1;        /* Set position counter. */
  748.         return;
  749.     case 1:
  750.         if (p + len > 78) { conoll(""); p = 0; }
  751.         conol(s);  if ((p += len) > 78) conoll("");
  752.         return;
  753.     case 2:                /* Print s, then newline */
  754.         if (p + len > 78) conoll("");
  755.         conoll(s);  p = 0;
  756.         return;
  757.     case 3:
  758.         sprintf(buf,"%s: %ld",s,n);  conoll(buf);  p = 0;
  759.         return;
  760.     case BS:            /* Backspace */
  761.         if (p > 0) p--;
  762.     case BEL:            /* Beep */
  763.         conoc(c);
  764.         return;
  765.     default:            /* Packet type display */
  766.         if (c == 'Y') return;    /* Don't bother with ACKs */
  767.         if (c == 'D') {        /* Only show every 4th data packet */
  768.         c = '.';
  769.         if (n % 4) return;
  770.         }
  771.         if (p++ > 78) {        /* If near left margin, */
  772.         conoll("");        /* Start new line */
  773.         p = 0;            /* and reset counter. */
  774.         }
  775.         conoc(c);            /* Display the character. */
  776.         return;
  777.     }
  778. }
  779.  
  780. /*  I N T M S G  --  Issue message about terminal interrupts  */
  781.  
  782. intmsg(n) long n; {
  783.     char buf[80];
  784.  
  785.     if ((!displa) || (quiet)) return;
  786.     if (n == 1) {
  787.     screen(2,0l,"");
  788.     screen(2,0l,"CTRL-F to cancel file,  CTRL-R to resend current packet");
  789.     screen(2,0l,"CTRL-B to cancel batch, CTRL-A for status report...");
  790.     }
  791.     else screen(1,0l," ");
  792. }
  793.  
  794. /*  C H K I N T  --  Check for console interrupts  */
  795.  
  796. chkint() {
  797.     int ch, cn;
  798.  
  799.     if ((!local) || (quiet)) return(0);    /* Only do this if local & not quiet */
  800.     cn = conchk();            /* Any input waiting? */
  801.     debug(F101,"conchk","",cn);
  802.  
  803.     while (cn > 0) {            /* Yes, read it. */
  804.     cn--;
  805.             /* give read 5 seconds for interrupt character */
  806.     if ((ch = coninc(5)) < 0) return(0);
  807.     switch (ch & 0377) {
  808.         case 0xe1:            /* CTRL-A */
  809.         screen(2,0l,"^A  Status report:");
  810.         screen(1,0l,     " file type: ");
  811.         if (binary) screen(2,0l,"binary"); else screen(2,0l,"text");
  812.         screen(3,filcnt," file number");
  813.         screen(3,ffc,   " characters ");
  814.         screen(3,(long) bctu,  " block check");
  815.         screen(3,(long)rptflg," compression");
  816.         screen(3,(long)ebqflg," 8th-bit prefixing");
  817.         continue;
  818.         case 0xe2:            /* CTRL-B */
  819.             screen(1,0l,"^B - Cancelling Batch ");
  820.             czseen = 1;
  821.         continue;
  822.         case 0xe6:            /* CTRL-F */
  823.             screen(1,0l,"^F - Cancelling File ");
  824.             cxseen = 1;
  825.         continue;
  826.         case 0xf2:                    /* CTRL-R */
  827.             screen(1,0l,"^R - Resending ");
  828.             resend();
  829.         return(1);
  830.         default:            /* Anything else, just beep */
  831.             screen(BEL,0l,"");
  832.         continue;
  833.         }
  834.     }
  835.     return(0);
  836. }
  837.  
  838. /*  D E B U G  --  Enter a record in the debugging log  */
  839.  
  840. /*
  841.  Call with a format, two strings, and a number:
  842.    f  - Format, a bit string in range 0-7.
  843.         If bit x is on, then argument number x is printed.
  844.    s1 - String, argument number 1.  If selected, printed as is.
  845.    s2 - String, argument number 2.  If selected, printed in brackets.
  846.    n  - Int, argument 3.  If selected, printed preceded by equals sign.
  847.  
  848.    f=0 is special: print s1,s2, and interpret n as a char.
  849. */
  850. debug(f,s1,s2,n) int f, n; char *s1, *s2; {
  851.     static char s[200];
  852.     char *sp = s;
  853.  
  854.     if (!deblog) return;        /* If no debug log, don't */
  855.     switch (f) {
  856.         case F000:            /* 0, print both strings, */
  857.         sprintf(sp,"%s%s%c\n",s1,s2,n); /*  and interpret n as a char */
  858.         zsout(ZDFILE,s);
  859.         break;
  860.         case F001:            /* 1, "=n" */
  861.         sprintf(sp,"=%Xh\n",n);
  862.         zsout(ZDFILE,s);
  863.         break;
  864.         case F010:            /* 2, "[s2]" */
  865.         sprintf(sp,"[%s]\n",s2);
  866.         zsout(ZDFILE,"");
  867.         break;
  868.         case F011:            /* 3, "[s2]=n" */
  869.         sprintf(sp,"[%s]=%Xh\n",s2,n);
  870.         zsout(ZDFILE,s);
  871.         break;
  872.         case F100:            /* 4, "s1" */
  873.         zsoutl(ZDFILE,s1);
  874.         break;
  875.         case F101:            /* 5, "s1=n" */
  876.         sprintf(sp,"%s=%Xh\n",s1,n);
  877.         zsout(ZDFILE,s);
  878.         break;
  879.         case F110:            /* 6, "s1[s2]" */
  880.         sprintf(sp,"%s[%s]\n",s1,s2);
  881.         zsout(ZDFILE,s);
  882.         break;
  883.         case F111:            /* 7, "s1[s2]=n" */
  884.         sprintf(sp,"%s[%s]=%Xh\n",s1,s2,n);
  885.         zsout(ZDFILE,s);
  886.         break;
  887.     default:
  888.         sprintf(sp,"\n?Invalid format for debug() - %d\n",f);
  889.         zsout(ZDFILE,s);
  890.     }
  891. }
  892.  
  893. /*  T L O G  --  Log a record in the transaction file  */
  894. /*
  895.  Call with a format and 3 arguments: two strings and a number:
  896.    f  - Format, a bit string in range 0-7, bit x is on, arg #x is printed.
  897.    s1 - String, argument number 1.
  898.    s2 - String, argument number 2.
  899.    n  - Int, argument 3.
  900. */
  901. tlog(f,s1,s2,n) int f; long n; char *s1, *s2; {
  902.     static char s[200];
  903.     char *sp = s; int x;
  904.     
  905.     if (!tralog) return;        /* If no transaction log, don't */
  906.     switch (f) {
  907.         case F000:            /* 0 (special) "s1 n s2"  */
  908.         sprintf(sp,"%s %ld %s\n",s1,n,s2);
  909.         zsout(ZTFILE,s);
  910.         break;
  911.         case F001:            /* 1, " n" */
  912.         sprintf(sp," %ld\n",n);
  913.         zsout(ZTFILE,s);
  914.         break;
  915.         case F010:            /* 2, "[s2]" */
  916.         x = strlen(s2);
  917.         if (s2[x] == '\n') s2[x] = '\0';
  918.         sprintf(sp,"[%s]\n",s2);
  919.         zsout(ZTFILE,"");
  920.         break;
  921.         case F011:            /* 3, "[s2] n" */
  922.         x = strlen(s2);
  923.         if (s2[x] == '\n') s2[x] = '\0';
  924.         sprintf(sp,"[%s] %ld\n",s2,n);
  925.         zsout(ZTFILE,s);
  926.         break;
  927.         case F100:            /* 4, "s1" */
  928.         zsoutl(ZTFILE,s1);
  929.         break;
  930.         case F101:            /* 5, "s1: n" */
  931.         sprintf(sp,"%s: %ld\n",s1,n);
  932.         zsout(ZTFILE,s);
  933.         break;
  934.         case F110:            /* 6, "s1 s2" */
  935.         x = strlen(s2);
  936.         if (s2[x] == '\n') s2[x] = '\0';
  937.         sprintf(sp,"%s %s\n",s1,s2);
  938.         zsout(ZTFILE,s);
  939.         break;
  940.         case F111:            /* 7, "s1 s2: n" */
  941.         x = strlen(s2);
  942.         if (s2[x] == '\n') s2[x] = '\0';
  943.         sprintf(sp,"%s %s: %ld\n",s1,s2,n);
  944.         zsout(ZTFILE,s);
  945.         break;
  946.     default:
  947.         sprintf(sp,"\n?Invalid format for tlog() - %d\n",f);
  948.         zsout(ZTFILE,s);
  949.     }
  950. }
  951.